<% cod=request.querystring("cod") sendmail=request.querystring("sendmail") i=request.querystring("i") ' variable de: "Interesado en inte" numbot=request.querystring("numbot") ' variable de: "Interesado en inte" select case cod case 2 call enviarfor end select %> Zoonacan - Contactar con nosotros <% cod=request.querystring("cod") select case cod case 2 call enviarfor end select %>
Contacto

Rellene el siguien formulario e indiquenos en que raza esta interesado, respondemos en menos de 1 hora por e-mail y al instante por telefono.


<% If sendmail<>"" then%>
<%response.Write("E-mail enviado en breve contactaremos con usted.")%>
<%response.Write("Gracias por visitar nuestra web.")%>
<%end if %> <% If numbot="1" then%>
<%response.Write("Debe realizar la suma correctamente.")%>
<%'response.Write("Gracias por visitar nuestra web.")%>
<%end if %>

Interesado en
<%'Select case i ' case 1 ' inte="Carlinos por 350 €" ' case 2 ' inte="Mini Pincher por 300 €" ' ' end select%> <%=i%>
Nombre
*
Provincia
*
Teléfono
*
E-mail
*
Comentario
   
Realice la suma 28+1= *
   
 
   
  No, He leído y acepto la política de privacidad.
   

 

La Directiva 95/46/CE constituye el texto de referencia, a escala europea, en materia de protección de datos personales. Crea un marco regulador destinado a establecer un equilibrio entre un nivel elevado de protección de la vida privada de las personas y la libre circulación de datos personales dentro de la Unión Europea (UE). Con ese objeto, la Directiva fija límites estrictos para la recogida y utilización de los datos personales y solicita la creación, en cada Estado miembro, de un organismo nacional independiente encargado de la protección de los mencionados datos.


En base a la citada Directiva, todos los datos personales aquí recogidos serán tratados con la debida protección evitando su acceso a personas no autorizadas. Zoonacan.es NUNCA revenderá a otra empresa dichos datos personales.
La finalidad de su almacenamiento será única y exclusivamente para contactar con el cliente y ofrecerle posibles promociones y ofertas por correo electrónico.


El titular de los datos de carácter personal puede en cualquier momento pedir la baja o modificación de sus datos en info@zoonacan.es incluyendo como asunto BAJA.

 

Importante: Todos los cachorros se entregan vacunados y desparasitados, con pasaporte obligatorio y microchip a tramitar a nombre del dueño una vez el cachorro sea recibido, 7 dias de garantia virica por escrito de enfermadades de parvo y moquillo.
Envios a toda españa por MRW mascotas (pago contrareenbolso)

 





Central

   C/Vicente Delgado Algaba No 5

    06010 Badajoz

    (Badajoz)

    Tfl: 924 20 75 09

    Email: info@zoonacan.es

    Horario: 9:00 a 14:00 y 17:00 a 20:00

Asesor

   Jorge Gonzalez

    Tfl: 924 20 75 09

    Mv: 686 979 918

    Email: jorge@zoonacan.es


<% Sub enviarfor numbot = request ("numbot") i=request.querystring("i") ' variable de: "Interesado en inte" if numbot<>"29" then response.redirect("contacto.asp&numbot=1") 'response.redirect("usuarios_ges.asp?cod=3&usuario="&usuario2&"&cod_marca="&cod_marca) else nombre = request ("nombre") pobla = request("pobla") provi = request("provi") tlf = request("tlf") email = request("email") asunto = request("asunto") descrip = request("descrip") Set myMail = CreateObject ("CDO.Message") myMail.Subject = "Contacto de Zoonacan.es" myMail.From = "info@zoonacan.es" myMail.To = "control@zoonacan.es" myMail.Bcc = "zoonacan@hotmail.com" '"CALAMBRE_26@HOTMAIL.COM" myMail.HTMLBody = "Contacto CachorrosExtremadura.es
Imagen
Contacto Zoonacan.es  
Nombre:"&nombre&"
Provincia: "&provi&"
Telf: "&tlf&"
E-mail: "&email&"
Comentarios:"&descrip&"
  
  
  
Saludos
www.zoonacan.es

 

 

 

 

" 'cuerpo = "Contacto CachorrosExtremadura.es
Buenas, 

 

Nombre: "&nombre&"

Provincia: "&pobla&"

Telf: "&tlf&"

E-mail: "&email&"

Compra/Venta: "&radio&"

Comentarios: "&descrip&"

 

 

 

Saludos

 

" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.zoonacan.es" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@zoonacan.es" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "z00n4c4n" myMail.Configuration.Fields.Update myMail.Send set myMail=nothing end if response.Redirect("http://www.zoonacan.es/contacto.asp?sendmail=OK") End sub%>